home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_16011.txt < prev    next >
Text File  |  1990-08-14  |  8KB  |  364 lines
  1. -- card: 16011 from stack: in
  2. -- bmap block id: 16243
  3. -- flags: 4000
  4. -- background id: 29744
  5. -- name: Sort Order…
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonNumber
  9.   put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  10.   set hilite of background button buttonNumber to false
  11. end openCard
  12.  
  13. on closeCard
  14.   global buttonNumber
  15.   set hilite of background button buttonNumber to true
  16.   set the loc of card button "Class Name" to 199,105
  17.   set the loc of card button "Class Number" to 313,123
  18.   set the loc of card button "Grade" to 313,141
  19.   set the loc of card button "Sequence Number" to 313,159
  20.   set the loc of card button "Teacher Name" to 313,177
  21. end closeCard
  22.  
  23.  
  24. -- part 1 (button)
  25. -- low flags: 00
  26. -- high flags: 0000
  27. -- rect: left=0 top=0 right=343 bottom=513
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: 
  36.  
  37.  
  38. -- part 2 (button)
  39. -- low flags: 00
  40. -- high flags: 2000
  41. -- rect: left=147 top=208 right=226 bottom=205
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: OK
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   lock screen
  53.   put empty into sortBy
  54.   repeat with index = 5 to 9
  55.     if item 1 of the loc of card button id index < 256 then
  56.       put "St" & index after sortBy
  57.     end if
  58.   end repeat
  59.   go to card sortBy of this background
  60.   if the result is "No such card" then
  61.     pop card
  62.   else pop card into it
  63.   unlock screen
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 3 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=227 top=208 right=226 bottom=285
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Clear
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   lock screen
  83.   set the loc of card button "Class Name" to 313,105
  84.   set the loc of card button "Class Number" to 313,123
  85.   set the loc of card button "Grade" to 313,141
  86.   set the loc of card button "Sequence Number" to 313,159
  87.   set the loc of card button "Teacher Name" to 313,177
  88.   unlock screen
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 4 (button)
  94. -- low flags: 00
  95. -- high flags: 2000
  96. -- rect: left=307 top=208 right=226 bottom=365
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Cancel
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   lock screen
  108.   pop card
  109.   unlock screen
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 5 (button)
  115. -- low flags: 00
  116. -- high flags: 8002
  117. -- rect: left=149 top=97 right=113 bottom=249
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 3
  122. -- text size: 10
  123. -- style flags: 0
  124. -- line height: 13
  125. -- part name: Class Name
  126. ----- HyperTalk script -----
  127. on mouseDown
  128.   repeat while the mouse is down
  129.     get the mouseLoc
  130.     if it is within "196,102,316,180" then set the loc of me to it
  131.   end repeat
  132. end mouseDown
  133.  
  134. on mouseUp
  135.   if item 1 of the loc of me > 256 then
  136.     set the loc of me to 313,105
  137.   else
  138.     put empty into buttonCount
  139.     repeat with index = 5 to 9
  140.       if item 1 of the loc of card button id index < 256 then
  141.         add 1 to buttonCount
  142.       end if
  143.     end repeat
  144.     set the loc of me to 199,((buttonCount * 18) + 87)
  145.   end if
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 6 (button)
  151. -- low flags: 00
  152. -- high flags: 8002
  153. -- rect: left=263 top=115 right=131 bottom=363
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 0
  157. -- font id: 3
  158. -- text size: 10
  159. -- style flags: 0
  160. -- line height: 13
  161. -- part name: Class Number
  162. ----- HyperTalk script -----
  163. on mouseDown
  164.   repeat while the mouse is down
  165.     get the mouseLoc
  166.     if it is within "196,102,316,180" then set the loc of me to it
  167.   end repeat
  168. end mouseDown
  169.  
  170. on mouseUp
  171.   if item 1 of the loc of me > 256 then
  172.     set the loc of me to 313,123
  173.   else
  174.     put empty into buttonCount
  175.     repeat with index = 5 to 9
  176.       if item 1 of the loc of card button id index < 256 then
  177.         add 1 to buttonCount
  178.       end if
  179.     end repeat
  180.     set the loc of me to 199,((buttonCount * 18) + 87)
  181.   end if
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 7 (button)
  187. -- low flags: 00
  188. -- high flags: 8002
  189. -- rect: left=263 top=133 right=149 bottom=363
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 0
  193. -- font id: 3
  194. -- text size: 10
  195. -- style flags: 0
  196. -- line height: 13
  197. -- part name: Grade
  198. ----- HyperTalk script -----
  199. on mouseDown
  200.   repeat while the mouse is down
  201.     get the mouseLoc
  202.     if it is within "196,102,316,180" then set the loc of me to it
  203.   end repeat
  204. end mouseDown
  205.  
  206. on mouseUp
  207.   if item 1 of the loc of me > 256 then
  208.     set the loc of me to 313,141
  209.   else
  210.     put empty into buttonCount
  211.     repeat with index = 5 to 9
  212.       if item 1 of the loc of card button id index < 256 then
  213.         add 1 to buttonCount
  214.       end if
  215.     end repeat
  216.     set the loc of me to 199,((buttonCount * 18) + 87)
  217.   end if
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part 8 (button)
  223. -- low flags: 00
  224. -- high flags: 8002
  225. -- rect: left=263 top=151 right=167 bottom=363
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 0
  229. -- font id: 3
  230. -- text size: 10
  231. -- style flags: 0
  232. -- line height: 13
  233. -- part name: Sequence Number
  234. ----- HyperTalk script -----
  235. on mouseDown
  236.   repeat while the mouse is down
  237.     get the mouseLoc
  238.     if it is within "196,102,316,180" then set the loc of me to it
  239.   end repeat
  240. end mouseDown
  241.  
  242. on mouseUp
  243.   if item 1 of the loc of me > 256 then
  244.     set the loc of me to 313,159
  245.   else
  246.     put empty into buttonCount
  247.     repeat with index = 5 to 9
  248.       if item 1 of the loc of card button id index < 256 then
  249.         add 1 to buttonCount
  250.       end if
  251.     end repeat
  252.     set the loc of me to 199,((buttonCount * 18) + 87)
  253.   end if
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 9 (button)
  259. -- low flags: 00
  260. -- high flags: 8002
  261. -- rect: left=263 top=169 right=185 bottom=363
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 0
  265. -- font id: 3
  266. -- text size: 10
  267. -- style flags: 0
  268. -- line height: 13
  269. -- part name: Teacher Name
  270. ----- HyperTalk script -----
  271. on mouseDown
  272.   repeat while the mouse is down
  273.     get the mouseLoc
  274.     if it is within "196,102,316,180" then set the loc of me to it
  275.   end repeat
  276. end mouseDown
  277.  
  278. on mouseUp
  279.   if item 1 of the loc of me > 256 then
  280.     set the loc of me to 313,177
  281.   else
  282.     put empty into buttonCount
  283.     repeat with index = 5 to 9
  284.       if item 1 of the loc of card button id index < 256 then
  285.         add 1 to buttonCount
  286.       end if
  287.     end repeat
  288.     set the loc of me to 199,((buttonCount * 18) + 87)
  289.   end if
  290. end mouseUp
  291.  
  292.  
  293.  
  294. -- part contents for background part 1
  295. ----- text -----
  296. 36 Classes
  297.  
  298. -- part contents for background part 3
  299. ----- text -----
  300. 12
  301. 11
  302. 12
  303. 12
  304. 11
  305. 12
  306. 12
  307. 11
  308. 12
  309. 12
  310. 11
  311. 12
  312.  
  313. -- part contents for background part 4
  314. ----- text -----
  315. Algebra (1)
  316. Algebra (1)
  317. Algebra (2)
  318. Biology (1)
  319. Biology (1)
  320. Biology (2)
  321. Biology (3)
  322. Biology Lab (1)
  323. Bookkeeping (1)
  324. Chemistry (1)
  325. Chemistry (1)
  326. Chemistry (2)
  327.  
  328. -- part contents for background part 5
  329. ----- text -----
  330. Arness, James
  331. Arness, James
  332. Arness, James
  333. Cavein, Tich
  334. Nasmyth, Patricia
  335. Nasmyth, Patricia
  336. Cavein, Tich
  337. Nasmyth, Patricia
  338. Doctor, Heinrich
  339. Dean, Bob
  340. Dean, Bob
  341. Woo, Fleming Pita Spooler
  342.  
  343. -- part contents for background part 6
  344. ----- text -----
  345. ‚àö
  346. ‚àö
  347. ‚àö
  348. ‚àö
  349. ‚àö
  350. ‚àö
  351. ‚àö
  352. ‚àö
  353. ‚àö
  354. ‚àö
  355. ‚àö
  356. ‚àö
  357.  
  358. -- part contents for background part 2
  359. ----- text -----
  360. Mon, Aug 28, 1989
  361.  
  362. -- part contents for background part 31
  363. ----- text -----
  364. 1